home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mem / MPW Helpers / Procedures / hex.icn < prev    next >
Encoding:
Text File  |  1992-05-29  |  497 b   |  23 lines  |  [TEXT/MPS ]
  1. ############################################################################
  2. #
  3. #    Name:    hex.icn
  4. #
  5. #    Title:    Converts string of hex digits into an integer
  6. #
  7. #    Author:    Robert J. Alexander
  8. #
  9. #    Date:    December 5, 1989
  10. #
  11. ############################################################################
  12. #
  13. #  hex() -- Converts string of hex digits into an integer.
  14. #
  15.  
  16. procedure hex(s)
  17.    local a,c
  18.    a := 0
  19.    every c := !map(s) do
  20.      a := ior(find(c,"0123456789abcdef") - 1,ishift(a,4)) | fail
  21.    return a
  22. end
  23.